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1-002 6-SEP=-1984 PASRTL.SRCIJPASVECTOR.MAR; 1 (1) 


E me 5) - Entry vectors {or PASRTL.EXE 
T /1-002/ ; File: PASVECTOR.MAR Edit: MDL1002 


® ® 
* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 7 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
* ALL RIGHTS RESERVED . 

® 
* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER  * 

a 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
* TRANSFERRED. . 
* ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
* CORPORATION. * 
® * 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL . 
® ® 
ft * 
** * 
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FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains the entry vector definitions for the 
VAX-11 Pascal Run-Time Library shareable image PASRTL.EXE 


ENVIRONMENT: User mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 11-March-1982 
MODIFIED BY: 


1-001 = Original. SBL 11-March-1982 
1-002 - Add some V1 routines so that V1 programs Link on a uVAX. MDL 26-Jun-1984 
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1-002 DECLARATIONS S-SEP=1984 11:34:09 LPASHTL.SRESPASVECTOR.MAR;1 (22° (3). 
Hf 47 .SBTTL DECLARATIONS | 
8 8 rk ; LIBRARY MACRO CALLS: 
0 50 ; 
0000 a1 3 NONE 
0000 26 ; 
444 7 ; EXTERNAL DECLARATIONS: 
44 2? -DSABL GBL : Force all external symbols to be declared 
0000 57 ; MACROS: 
44 28 ; 

000 9 
0000 60 ;+ 4 
0000 61 ; Macro to define an entry vector for a CALL entry point 
0000 6¢ 7° | 
0000 6 
0000 64 »MACRO VCALL NAME 
0000 65 -EXTRN NAME 
0000 66 . TRANSFER NAME 
0000 67 MASK NAME 
000 68 JMP NAME +2 
0000 69 -ENDM 
0000 70 
0000 ri 3* 
0000 72 ; Macro to define an entry vector for a JSB entry point 
0000 75 3° 
0000 74 
0000 75 MACRO VJSB NAME 
0000 76 ~EXTRN NAME | 
0000 77 . TRANSFER NAME | 
0000 78 JMP NAME 
0000 79 -BLKB 
0000 80 -ENDM 
0000 81 
0000 82 -LIST MEB 3; generate Listing for code generated 
0000 83 
0000 84 ; 
0000 85 ; EQUATED SYMBOLS: 
0000 86 ; 
0000 le NONE 
0000 88 ; 
0000 89 ; OWN STORAGE: 
4 90 ; 

000 91 ; 
0000 3 ; NONE 
0000 93 ; 
44 oe 3 PSECT DECLARATIONS: 

00000000 96 -PSECT SPASS$SVECTOR PIC, USR, CON wit gi tte SHR, = 

9000 97 EXE, RD, NOWRT, 


Eiger oes Se ae Ss 
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1-002 DECLARATIONS ae or 4:0 PASRTL.S RCIP ASVECTOR.MAR; 1 it 3) 
00 100; | 
0 15 5 ab hey vectored entry points for the Pascal Run-Time Library in alphabetical 
B38: ora 
000 104 : Any additions or changes to this file should be reflected in 
000 19? 3; COM$:PASRTLVEC.DAT. 
000 106 ;- 
0000 107 
0000 108 VCALL PAS$ABS_L 
0000* 0000 . MASK “PASSA BS 
00000002"EF 17 0008 109 JMP PASSABS_ “[+2 
$80 110 VCALL PAS$BIN 
0000* 0008 . MASK PASS$BIN 
00000002"EF 17 pou en JMP PASSBIN+2 
0010 112 VCALL PASS$CARD2 
0000* 0010 . MASK PAS$CARD2 
00000002"EF 17 pole 413 JMP PAS$SCARD2+2 | 
0018 114 VCALL PASS$CLOCK2 
0000" 0018 . MASK PAS$CLOCK2 
00000002'EF 17 ah “15 MP PASSCLOCK2+2 
0020 116 VCALL PAS$CLOSE2 
0000" 0020 . MASK AS$CLOSE2 | 
00000002'EF 17 Ons s "F MP PASSCLOSE2+2 
0028 118 VJSB PAS$CLOSE_LOCAL_R3 
00000000' EF 0028 JMP PASS$SCLOSE_LOCAL_R3 
06000030 pee -BLKB 2 
0030 119 
0030 120 VCALL PASS$CONVERT_BOOL_L 
0000" 0030 . MASK PASSCONVERT_B 
00000002"EF 17 Rt 131 JMP PASSCONVERT= -Boot “[s2 
0038 122 VCALL — PASSCONVERT BUL | 
0000° 0038 . MASK ASSCONVERT_BU_L 
00000002°EF 17 ts 123 JMP PASSCONVERT U-L+2 
0040 124 VCALL pasecanne st D_D 
0000" 0040 » MASK ASSCONVERT_D 
00000002°EF 17 0048 125 JMP PASSCONVERT=D -b+2 
bod 138 VCALL PASECEOVES! SP 
0000" 0048 - MASK ASSCONVERT_D_ 
00000002'EF 17 onto 127 JMP PASSCONVERT=D DoHe2 
0050 128 VCALL PASSCONVERT_F 
0009" 0050 . MASK PASSCONVERT fF 
00000002"EF 1 Ones 129 JMP PASSCONVERT _F “42 
434 186 VCALL PASSCONVERT _F 
0000° 005 MASK PASSCONVERT_F 
00000002'EF 17 et 939 JMP PASSCONVERT_F He2 
0060 132 VCALL PASSCONVERT_G_G 
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00000002" EF 
00000002 'EF 
00000002 "EF 
00000002" EF 
00000002'EF 
00000002" EF 
00000002" EF 
00000002'CF 
00000002'EF 
00000002'EF 
00000002 'EF 
00000002 "EF 
00000002 "EF 


00000002" EF 


0099" 
a) 
a) 
0000" 

17 
0000' 


17 


0000° 
17 


0000" 


0090" 
7 
0000' 
17 
0000" 
17 
0000" 
17 
0000° 
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PASSCONVERT 
PASS 
PASS$C 


PASSCONVERT_H_H 
PASSCONVERT_H 
PASSCONVERT_ f “Hee 


PASSCONVERT_LU_D 
PASSCONVERT 
PASSCONVERT™ “tur “bee 


PASSCONVERT LU F 
PASSCORVERT 
PASSCONVERT” “UU: “Fe2 


PASSCONVERT LUG 
PASSCORVERT 
PASSCONVERT” “LU: -G+2 


umpacnet LU_H 


NVERT_H_G 
VERT_H_G+2 


ASSCORVERT_LU_H 
PASSCONVERT= U-H+2 
PASSCONVERT LULL 
ASSCORVER 


PASSCONVERT “CU: “+2 
PASECONVES] LB 


ASSEON NVERT _L_BU 
PASS CONVERT_L_BU+2 
PASSCONVERT L_H 
ASSCONVERT RT tH 
PASSCO ONVERT_L_H+2 
PASSCONVERT LL 
ASSCONVERT 
PASSCO NVERT trb+2 


PASSCONVERT WU_L 
PASSCORVERT_WU_L 
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1-003 DECLARATIONS S-SEP-1984 11:84:09 EBASRTL.SRESPASVECTOR.MAR;1 22° (3). 
00000002"EF 17 p a JMP PASSCONVERT_WU_L+2 | : 
D8 162 VCALL PASS$CVT_D_T ; 
0000" 00D MASK PASSCVT_D_ : 
00000002"EF 1 i rae P PASSCVT-D-T+2 : 
060 164 VCALL PASS$CVT_F_T | : 
0000" 00E0 MASK PASSCVT_F_T | : 
00000002"EF 17 QOE - jMP PASSCVT~F -T+2 ; 
wu 166 VCALL PASSCVT_G_T : 
0009" 3 . MASK PAS$CVT_G_T 3 
00000002"EF 1 OOEA sis jmp PASSCVT~G_T#2 | : 
Oors 188 VCALL PASSCVT_H_T | : 
0000' ita . MASK PASSCVT_H_T ; 
00000002"EF 17 O02 ‘a jmp PASSCVT-H7T+2 | ; 
0078 170 VCALL  PASSDATE | : 
0000" OOF MASK PASSDATE : 
00000002"EF 17 OFA te MP PASSDATE+2 ; 
0100 172 VCALL PASSDELETE : 
0000* 0100 MASK ASSDELETE : 
00000002 'EF 17 8108 175 JMP att hy ETE+2 ; 
0108 17% VCALL PASSDISPOSE2 : 
0000" 0108 “MASK PASSDISPOSE2 : 
00000002"EF 17 O10A ae jmp PAS$DI SPOSE2+2 : 
0110 176 VCALL  PASSEOF2 | : 
0000* 0110 “MASK PASSEOF 2 : 
00000002"EF 17 112 “a MP PASSEOF 2+2 : 
0118 178 VCALL PASSEOLN2 : 
0000° 0118 “MASK PASSEOLN2 : 
00000002"EF 17 118 ‘ioe MP PASSEOLN2+2 : 
$130 180 VCALL PASS$EXPO_D ; 
0009" 0120 “MASK PASSEXPO_D F 
00000002"EF 1 122 ia jmp PASSEXPO- b+2 | 3 
0128 182 VCALL PASSEXPO_F F 
0000' o1 8 MASK PASSEXPO_F : 
00000002"EF 1 o1 A al jmp PASSEXPO-F +2 : 
0130 184 VCALL  PASSEXPO.G | , 
0009" 01 "MASK PASSEXPO_G | 
00000002"EF 1 o1 sa jmp PASSEXPO~G+2 | 
te 186 VCALL PAS$EXPO_H 
0009" O15 MASK PASSEX XPO_H 
00000002"EF 1 15a a jmp PASSEXPO"H+2 | 
149 188 VCALL PASSFAB 
0009" 149 “MASK PASSFAB | 
00000002"EF 17 014 jmp PAS$FAB+2 


a a — — 
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14 189 : 
148 190 VCALL PASS IND2 : 
0009" 014 MASK PASSF IND ; 
O0000002"EF 17 OIGA JMP PASSFIND2+2 : 
139 192 VCALL  PASSF INDK : 
0009" 015 .MASK PASSF INDK ; 
oooooooz"er 17 ide JMP PASSF INDK+2 | ; 
138 194 VCALL PASSGET 3 
0000" O15 .MASK PASSGET | : 
Ooogo002"EF 17 BISA JMP PASSGET+2 | ; 
| . 
0160 196 VCALL PASSGET_UNLOCK ‘ 
0009" 0160 MASK PAS$GET_UNLOCK ; 
ooooddd2"EF 17 Obes JMP PASS$GET~UNLOCK+2 | : 
0168 198 VCALL PAS$GOTO ; 
0000' 0168 MASK PAS$GOTO | ; 
00000002"EF 17 O16A JMP PAS$GOTO+2 3 
0170 199 | : 
0170 200 VCALL PASSHALT ; 
0000" 0170 MASK PASSHALT | ; 
00000002"EF 17 0172 JMP PASSHALT+2 | ; 
0178 201 | ; 
0178 202 VCALL PASSHANDLER | ; 
0000° 0178 MASK PASSHANDLER : 
00000002"EF 17 OI7A JMP PASSHANDLER+2 | ; 
_ 0180 203 ; 
0180 204 VCALL PASSHEX F 
0000" 0180 “MASK PASSHEX | 
00000002"EF 17 0182 JMP PASSHEX+2 
0188 205 | 
0188 206 VEALL  PASSLINELIMIT2 
0000" 0188 .MASK PASS$LINELIMIT2 
00000002" EF 018A JMP PASSLINELIMIT9+2 
0190 207 
0190 208 VCALL  PASSLOCATE 
0000" 0190 MASK PASSLOCATE 
oooooooz"eF 17 0192 JMP PASSLOCATE+2 | 
0198 210 VCALL = PASS$LOOK_AHEAD | 
0000" 0198 .MASK PASS$LOOK_AHEAD 
O0000002"EF 17 O19A JMP PASS$LOOK~AHEAD+2 | 
01A0 $12 VCALL PASSMARK2 
0000" 01A0 MASK PASSMARK | 
ooooooz"eF 17 O1Ag JMP PASSMARK2+2 | 
1A8 $14 VCALL — PASSNEW2, | 
0000" O1A .MASK Eu? 
oo000002"EF 17 OIAA JMP PASSNEUS+2 
180 $18 VCALL PASSOCT 
0009" 018 MASK PASSOCT 
ooooodd2"EF 17 OIBe JMP PASSOCT+2 
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VCALL 
- MASK 
JMP 

VCALL 
- MASK 
JMP 

VCALL 
» MASK 
JMP 

VCALL 
- MASK 
JMP 

VCALL 
MASK 


16-SEP-1984 01: 
6-SEP Pa} 9be 1: 4055 
PASSODD 

PASS$ODD 

PASSODD+2 


PASSOPEN2 
PASSOPEN 
PASSOPEN2+2 


PASSPAGE2 
PASSPAGeS#2 


PASSPUT 
PASSPUT 
PAS$PUT+2 


PASSRAB 
PASSRAB 
PASS$SRAB+2 


PASS$RLADLN2 
PASSREADLN2 
PASSREADLND#2 


PASSREADV tps 
PASSREADV_BOOLEAN 
PASSREADV- -BOOLEAN+2 


PASSREADV_CHAR 
PASSREADV_CHAR 
PASSREADV- CHAR+2 


PASSREADV_ENUMERATED 
PASSREADV_ENUMERATED 
PASSREADV- ENUMERATED+2 


PASSREADV_INTEGER 
PASS$READV_INTEGER 
PASSREADV_INTEGER+2 

PASSREADV_REAL _D 


PASSREADV_REA AL .d 
PASSREADV_REAL_D+2 


PASSREADV_REAL _F 
PRSS$READV_REAL _F 
PASSREADV_REAL_F +2 


PASSREADV_REAL_G 
PASS$READV_R 
PASSREADV_ “REAL “G2 


PASSREADV_REAL_H 
PRSSREADV_REAL_H 
PASSREADV “REAL ~H+2 


PASSREADV_STRING 


AX/VMS 
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00S DECLARATIONS et ee PASRIL. SREIPASVECTOR.MAR:1 oo” cS). 
0099" 8 MASK PASSREADV_STRING | ; 
00000002"EF 1 A JMP PASSREADV_STRING+2 : 
$8 VCALL PASSREADV_UNSIGNED 3 
0009" .MASK PAS$READV_UNSIGNED | : 
00000002"EF 1 tn MP PASSREADV_UNS I GNED+2 : 
$38 VCALL PASSREADV_VARYING | : 
0099" MASK PASSREADV_VARY ING | 
00000002"EF 1 3A - JMP PASSREADV= VARY ING+2 
4 $33 VCALL PASS$READ_BOOLEAN | 
0009" 4 .MASK PASSREAD_BOOLEAN 
00000002"EF 1 6 4 = JMP PASSREAD~ ~BOOLEAN*2 | 
024 $2 VCALL PASSREAD_C 
0000" 024 »MASK PASSREAD. CHAR 
00000002"EF 17 9 $A =m JMP PASSREAD_CHAR+2 | 
0250 256 VCALL PASS$READ_ENUMERATED 
0000" 0250 .MASK PASSREAD_ENUMERATED 
00000002"EF 17 Og3e - JMP PASSREAD™ ENUMERATED+2 | 
$528 33 VCALL PASS$READ_INTEGER 
0000" 0258 .MASK PASSREAD_INTEGER 
00000002"EF 17 Og3A — JMP PASSREAD_INTEGER+2 
| 
0260 260 VCALL PAS$READ_REAL_D 
0000" 0260 . MASK PASSREAD_REAL | 
00000002"EF 17 026¢ - JMP PASSREAD- “REAL -b+2 | 
0268 262 VCALL PAS$READ_REAL_F 
0000" 0268 .MASK PASSREAD_REAL 
00000002"EF 17 be6A as JMP PASSREAD~ “REAL “42 
0370 64 VCALL PAS$READ_REAL_G 
0000° 027 . MASK PASSREAD_REAL | 
00000002"EF 17 027 - JMP PASSREAD™ REAL ~b42 
9 78 39 266 VCALL PASS$READ_REAL_H | 
0009" 78 - MASK PASSREAD _REAL_H 
00000002"EF 1 O7A - JMP PASSREAD_REAL_H+2 | 
6280 68 VCALL PASS$READ_STRING 
0009" 80 MASK PASSREAD_STRING 
00000002"EF 1 9 8¢ me JMP PASSREAD_STRING+2 : 
0288 $66 VCALL PASS$SREAD_UNSIGNED 
. 0000' 38 .MASK PASSREAD_UNSIGNED 
00000002"EF 17 8A ve JMP PASSREAD_UNS I GNED+2 
30 $3 VCALL PASS$READ_VARYING 
0009" 029 .MASK PASSREAD_VARYING 
00000002"EF 1 3 " JMP PASSREAD~VARYING+2 
9 74 VCALL PASSRELEASE2 
0000" 029 .MASK PASS$SRELEASE2 
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PASSVECTOR - Entry vect 
1-002 DECLARATIONS 6-SEP=1984 PASRTL.S SPASVECTOR.MAR; 1 
00000002"EF 17 0 2A - JMP PASSRELEASE2+2 : 
nD $2 VCALL PAS$RESET2 | ; 
0000" 02A MASK PASSRESET2 ; 
Q00000002"EF 1 0 r " JMP PASS$RESETO+2 : 
02A Ae VCALL PASS$RESETK ; 
0000" 02A8 MASK PASSRESETK : 
00000002"EF 17 Bsa “— JMP PASSRESETK+2 : 
0cB0 280 VCALL = PAS$REWRITE2 | ; 
0000' 0 80 MASK PASSREWR ITE? : 
QO000002"EF 17 0 Be on JMP PASSREWRITEO+2 ; 
| Py 
0288 282 VCALL PAS$ROUND_D_LU : 
0090" 0288 LMASK PASSROUND_D_LU | : 
00000002'EF 17 Ta 283 JMP PASSROUND_D_LU+2 ; 
| ° 
ogco 284 VCALL PAS$ROUND_F ; 
0000" 02C0 .MASK ORSSROUN ND_F_LU ; 
00000002"EF 17 Ogce ons JMP PASSROUND—_F ~LU+2 | ; 
O5c8 286 VCALL PAS$ROUND_G ; 
0000" 02c8 MASK PRSSROUND G_LU : 
00000002"EF 17 O2CA JMP PASSROUND- “G~LU+2 | ; 
0200 287 : 
0200 288 VCALL PAS$ROUND_H_L ; 
0000" 02D0 . MASK PASSROUND. H_LU 5 
00000002"EF 17 O2D2 JMP PASSROUND—H_LU+2 : 
0208 289 : 
0208 290 VCALL PAS$SQR_D : 
0000" 0208 .MASK “PAS$SQR_D ; 
00000002'"EF 17 O2DA JMP PAS$SQR_D+2 : 
02E0 291 : 
02E0 292 VCALL PAS$SQR_F : 
0000" 02£0 .MASK “PASS$SOR : 
00000002'"EF 17 O2E2 JMP PASSSOR™ r+? : 
02E8 293 : 
02E8 294 VCALL PAS$SQR_G : 
0000' 0268 .MASK PAS$SQR_G : 
00000002"EF 17 O2EA JMP PAS$SQR_~G+2 : 
02FO 295 : 
02FO 296 VCALL PAS$SQR_H ; 
0009" OF MASK “PAS$SOQR : 
00000002"EF 1 0 F ose JMP PASSSOR™ “se : 
09r8 298 VCALL PAS$SQR_L : 
0009" 0 F MASK ~bAS$s Ll : 
00000002"EF 1 fA vs JMP PAS$SQR“L+2 : 
0300 00 VCALL PAS$SQR_LU : 
0000' 300 MASK “PASS$SOR : 
00000002"EF 17 os i. JMP PAS$SQR~ [bse : 
%0 35) VCALL PAS$STATUS 
0009" 08 MASK PASSSTATUS 
00000002"EF 1 30A JMP PASSSTATUS+#2 
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1-002 DECLARATIONS aie y 1:90:38 PASRTL.SRCJPASVECTOR.MAR; 1 . g 
1 307 
1 4 VCALL PASSTINE 
0000' 1 .MASK PASSTIME 
00000002"EF 1 - MP PASSTIME+2 
1 382 VCALL PAS$TRUNCATE 
0009" 1 .MASK PASS$STRUNCATE 
00000002 'EF 1 bait 07 JMP PASS TRUNCATE #2 
b358 35 VCALL PAS$TRUNC_D_LU 
0000" 0320 . MASK PASSTRUNC_D_LU . 
00000002 'EF 17 83 § 309 JMP PASSTRUNC_D_LU+2 
0328 310 VCALL PAS$TRUNC_F 
0000° 0328 MASK PRSSTRUN NC_F 
00000002 ‘EF 17 83 4 311 JMP PASSTRUNC_F “tu+2 | 
0336 312 VCALL PASS$TRUNC_G | 
0000" 0330 . MASK baSsthun 
00000002"EF 17 0330 $13 JMP CASS TRUONG” - “thse 
0338 314 VCALL PAS$TRUNC_H_LU 
0000 0338 . MASK PASSTRUNC_H 
00000002'"EF 17 033A JMP PASS$TRUNC_H ~tbe2 
0340 315 
0340 316 VCALL PAS$UFB 
0000* 0340 . MASK PASSUFB 
00000002 'EF 17 0342 JMP PASSUFB+2 
0348 317 
0348 318 VCALL PASSUNDEF INED D 
0000' 0348 «MASK PASSUNDEF INED_D 
00000002 'EF 17 o3e0 319 JMP PASSUNDEF INED_D+2 
0350 320 VCALL pRemner ae F 
0000' 0350 «MASK SUNDEF INED_F 
00000002 'EF 17 O28 394 JMP PASSUNDEE INED_F +2 
0358 322 VCALL PASSUNDEFINED_G 
0000" 0358 .MASK PASSUNDEF INED_G 
00000002 "EF 17 Se20 323 JMP PASSUNDEF INED_G+2 
0360 324 VCALL PASSUNDEFINED_H 
0000° 0360 . MASK PASSUNDEF INED_H 
00000002 ‘EF 17 B306 95 JMP PASSUNDEF INED_H+2 
0368 338 VCALL PAS$UNLOCK 
0000" 0368 .MASK PASSUNLOCK 
00000002 ‘EF 17 O36A JMP PASSUNLOCK+2 
0370 $5¢ 
O70 28 VCALL PASSUPDATE 
0000" 0370 . MASK PASSUPDAT 
00000002 'EF 17 ba58 9 JMP PASSUPDATES2 
8 39 VCALL PASSURITELNG 
0000' 7 MASK WRITELN 
00000002 'EF 1 7A JMP Set tr WRITELN2+2 
0380 331 


PASSVECTOR 
1-002 


00000002" EF 


00000002" EF 


00000002" EF 


00000002 "EF 


00000002 "EF 


00000002 ‘EF 


00000002'EF 


00000002 "EF 


00000002 "EF 


00000002 "EF 


00000002 "EF 


00000002 "EF 


00000002" EF 


00000002 "EF 


- entry vectors for PASRTL.EXE 
DECLARATIONS 
80 332 VCALL 
0099" 8 . MASK 
1 4 JMP 
332 
88 4 VCALL 
0099" 88 . MASK 
1 8A JMP 
0390 332 
0390 6 VCALL 
0000' 8 9 . MASK 
17 9 JMP 
039 33 
039 8 VCALL 
0000 0398 . MASK 
17 O39A JMP 
QO3A0 339 
Q3A0 340 VCALL 
0000" O3A0 . MASK 
17 O3A2 JMP 
O3A8 341 
03A8 342 VCALL 
0000' O3A8 . MASK 
17 O3AA JMP 
0380 343 
0380 344 VCALL 
0000' 0380 . MASK 
17 0382 MP 
0388 345 
0388 346 VCALL 
0000' 0388 . MASK 
17 O3BA JMP 
03CO 347 
03CO 348 VCALL 
0000° 03c0 » MASK 
17 03C2 JMP 
03¢8 349 
03c8 350 VCALL 
0000" 03c8 . MASK 
17 O3CA JMP 
0300 351 
0300 352 VCALL 
0000* 03D0 . MASK 
17 0302 JMP 
$308 $27 
3D 54 VCALL 
0000" 0308 .MAS 
17 O3DA JMP 
03E0 $32 
43 56 VCALL 
0099" 3E0 .MAS 
1 bees JMP 
bee 357 
03E8 358 VCALL 
0099" tt .MAS 
1 3EA JMP 
tia 323 
F 60 VCALL 


D 10 
16-SEP-1984 01:20:5 AX/VMS Macro V04-00 Page 11 
raat 94:92:38 LPASRTL. SRCIPASVECTOR.MAR; 1 ’ (3) 
PASSWRITEV BIN 
PAS$WRITEV_BIN 
PASSWRITEV_BIN+2 
PAS$WRITEV_BOOLEAN 
PASS$WRITEV_BOOLEAN 
PAS$WRITEV_BOOLEAN+2 
PASSWRITEV_CHAR 
PASSWRITEV_CHAR 
PASS$SWRITEV_CHAR+2 
PASSWRITEV_ENUMERATED 
PASSWRITEV_ENUMERATED 
PASSURITEV- ENUMERATED+2 
PASSWRITEV_HEX 
PASSWRITEV_HEX 
PASSWRITEV_HEX+2 
PASSWRITEV_INTEGER 
PASSWRITEV_INTEGER 
PASSWRITEV_INTEGER+2 
PAS$WRITEV_OCT 
PASSWRITEV_OCT 
PASSWRITEV_OCT+2 
PASSWRITEV_REALE_D 
PASSWRITEV_REALE_D 
PASSUR ITEV_-REALE_D+2 
PASSWRITEV_REALE_F 
PASSWRITEV_REALE_F 
PASSUR ITEV-REALE_F +2 
PASSWRITEV_REALE_G 
PASSWRITEV_REALE_G 
PASSUR ITEV_-REALE_G+2 
PAS$WRITEV_REALE_H 
PASSWRITEV_REALE_H 
PASSUR ITEV_REALE_H+2 
PASSWRITEV_REALF _D 
PASSWRITEV_REALF_D 
PASSUR ITEV_REALF_D+2 
PASSWRITEV_REALF _F 
PASSWRITEV_REALF _F 
PASSUR ITEV-REALF_F+#2 
PASSWRITEV_REALF_G 
PASSWRITEV_REALF_G 
PASSURI TEV “REALF_G+2 
PAS$SWRITEV_REALF_H 


E 10 


PASSVECTOR - Entry vectors for PASRTL.EXE 16-SEP-1984 01:20:5 AX/VMS v04-00 Pa 1 
1-002 DECLARATIONS Been abe 918288 FAASHTS Sacre vORe OOS mans1 om 18; 
0000° O3F . MASK PASSWRITEV_REALF_H 
00000002 'EF 09 r “ JMP PASS$SWRITEV_REALF_H+2 
F #83 VCALL  PASS$WRITEV_STRING 
0099" O3F . MASK PASSWRITEV_STRING 
00000002 'EF 1 B7hn 63 JMP PASSWRITEV_STRING+2 
44 64 VCALL PASS$WRITEV_UNSIGNED 
0000" 040 . MASK PASSWRITEV_UNSIGNED 
00000002"EF 17 Bee 45 JMP PASSWRITEV_UNSIGNED+2 
0408 382 VCALL PASS$WRITEV_VARYING 
0000" 040 . MASK PASSWRITEV_VARYING 
00000002'EF 17 b60A ~ JMP PASSURITEV- VARY ING+2 
0410 68 VCALL PAS$WRITE_BIN 
0000" 0410 . MASK PASSWRITE_BIN 
00000002'EF 17 Ole sae JMP PASS$SWRITE_BIN+2 
0418 370 VCALL PAS$WRITE_BOOLEAN 
0000" 0418 «MASK PAS$WRITE_BOOLEAN 
00000002"EF 17 Rohs $71 JMP PASSWRITE- ~BOOLEAN+2 
0420 372 VCALL PAS$WRITE CHAR 
0000' 0420 . MASK PASS$SWRITE_CHA 
00000002'EF 17 4 _ JMP PASSURITED ~CHARS2 
0428 374 VCALL PASS$WRITE_ENUMERATED 
0000" 0428 .MASK PASSWRITE_ENUMERATED 
00000002"EF 17 Rega a JMP PAS$WRITE_ENUMERATED+2 
0430 376 VCALL PASS$WRITE_HEX 
0000" 0430 MASK PASSWRITE_HEX 
00000002"EF 17 0432 JMP PASS$SWRITE_HEX+2 
0438 377 
0438 378 VCALL PAS$WRITE_INTEGER 
0000" 0438 .MASK PASSWRITE_INTEGER 
00000002"EF 17 043A JMP PASSWRITE_INTEGER+2 
0440 379 
0440 380 VCALL PASS$WRITE_OCT 
0000" 0440 .MASK PAS$WRITE_OCT 
00000002"EF 17 Dee = JMP PASSWRITE_OCT+2 
0448 382 VCALL PASS$WRITE REALE D 
0000° 0448 . MASK PASSWRITE_REALE_D 
00000002"EF 17 nese oes JMP PASSWRITE_REALE_D+2 
O28 384 VCALL PASS$WRITE_REALE_F 
0000" 0450 .MASK PASS$SWRITE_REALE_F 
00000002"EF 17 O28 o JMP PAS$WRITE_REALE_F +2 
re 32 VCALL PAS$WRITE_REALE_G 
0000' 0458 .MASK PASSWRITE_REALE_G 
00000002"EF 17 228 - JMP PASS$WRITE_REALE_G+2 
460 383 VCALL PASS$WRITE_REALE_H 
0000' 0460 .MASK PASS$WRITE_REALE_H 
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00000002 "EF 


00000002 "EF 


00000002 "EF 


00000002" EF 


00000002 "EF 


00000002'EF 


00000002'EF 


00000002'EF 


00000002'EF 


00000002’ EF 


- Entr 
DECLARAT 


17 


0000" 
17 


0000' 
7 


0 

Q 

0 

0 
0000' 0 
7 0 
0 

0 

0 

0 

0 

0 

0 

0 


0000' 
17 


PPLE LPP LPP PLP PLE EES 


0000° 
17 

0000" 0490 
17 


0000' 0498 
17 


0000" 04A0 
17 

0000° 04A8 
17 


ng 


350 


392 


16-SEP-1984 01:20 
gageP=19B4 41:80:09 
PASSWRITE_REALE_H+2 
PASSWRITE REALE 6D 
ASSURIT 


AX/VMS 
PASRTL 


c. 
PASSURITES ALF -b+2 
PASSWRITE_REALF_F 
PASSWRITE_REALF _F 
PASSWRITE_REALF_F +2 
PASSWRITE_REALF_G 
PASSWRITE_REALF_G 
PASSUR ITE-REALF_G+2 
PASSWRITE_REALF_H 
PASSWRITE_REA aur 
PASSUR ITE_REALF_H+2 
PASSWRITE STRING 
PASSWRITE_STRING 
PASSUR ITE-STRING+2 
PASSWRITE_UNSIGNED 
PASSWRITE_UNSIGNED 
PASSWRITE_UNSIGNED+2 
PASSWRITE_VARYING 
PASS$WRITE_VARYING 
PAS$WRITE_VARYING+2 


34 
; V1 entry points added to correct a uVAX problem. 


VCALL 
- MASK 
JMP 

VCALL 
- MASK 
JMP 

VCALL 


- MASK 
JMP 


- END 


2¢ 
3; Add new entry 


PASSREAD_STRING1 
PASSREAD_STRING1 
PASSREAD_STRING1+2 


PASSWRITE REALF _D 
PASS ORITE. ALF _D1 
PASSURITES -REALF “D142 


PRE Tks F1 


ITE_REALF _F1 
PASSWRITE_REALF_F1+#2 


points here, at the end. 


o V04-00 


. Page 1 
TPASVECTOR. MAR: 1 ( 


; End of module PASSVECTOR 


3 
3) 


v 
> 
m 
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2 4-00 Page 14 PA‘ 
PASSVECTOR sth scans Rect nid Hic remeron: "BrSEp-1984 11:80:09 LPASRTL. sae ESBASVECTOR MAR; 1 me I( 
Symbol table ' ; 
tenee =X 01 PASSPAGE2 eeaeenee =X : 
PASSABS _L ceeneeee Xl PASSPUT ere ee 
PASSCARD2 apd A i pease PeOL N2 ekeeeeee x 1 ‘ 
pASSELOCE cereeere PASSREADV -BOOLEAN eeeeere =X Ot 
PASSCLOSE crceeeee, 1 OT BASSREA cerrerse 
PASSCLOSE LOCAL es seeceese OF PASSREADV~ “ENUMERATED ersouens Fi ‘ 
PASSCONVERT_BU_L™ eeevecee =X 01 PASeRE ADV, NH e+ D eeeneeee KX 07 : 
ORS TTONVERT Dap ceeeeess OO} PASSREADV-REAL™ eseeveee =f 0 
2 forks A teeeeeee X01 PASSREADVREAL_ aeovecee. SE ; 
PASSCONVERT—F -H eeeeeeee YX 4 PASEREADV STRING eececeee x OF : 
PASSCONVERT GG eeeeeeee =X 1 PASSREADV_S eeenenee 9 Of : 
PASSCONVERT~G"H eeeeeeee XX (1 PASSREADV_ mor th rh eeececes of 0 : 
PASSCONVERT_H_D kkkkteee x 01 PASERe ADV VAR] EAN mnt x 01 : 
PASSCONVERT_H_F keeeeeee KX (1 PASEREAD- CHAR eeeeeeee XK OT : 
PASSCONVERT—H_G qeenene: = SOR PASSRE 1 teeeeeee XT : 
PASSCONVERT~H-H eeeeeeee XK 01 PASSREAD_ENUMERATED eeecneee KX OF : 
PASSCONVERT “LO kkekeeee ¥ 01 PASSREAD_IN TEGER ir: X 01 : 
PASSCONVERT “LU keener x Q1 patteEas-cearee cakinadenh X 01 : 
PASSCONVERT"LU~ eeeeeeee YX 0] PASSREAD_REAL_ eeecenee Of : 
PASSCONVERT-LU~ teeeeeee X01 PASSREAD_REALG cececeee Of ; 
PASSCONVERT WLU ReERREREE x 01 PASSRE te TRING gteeeeee x 01 é 
PASSCONVERT_L_6 TTT tiity ae. PASSREAD_S 1 et a x 01 : 
PASSCONVERT_L“H seerenee =X 01 PASSREAD_ {ped teeneeee X 01 : 
PASSCONVERT LL Reekeeee x 01 ee tt po th pa ‘sonseees x 01 s 
PASSCONVERT WO ekteeeee x 01 et ts ta ty manne sotie X 01 : 
PASSCVT DT” ~ eeeeeeee KX 0] PASSRELEASE2 a coat x 01 : 
PASSCVT_F_T eeneeece =f OT ett at eeeeeeee X01 : 
PASSCVT_G_T eeeceeee §=6X 601 RITE2 eeeeeeee XK 01 ‘ 
PASSCVT "HT eeeeeeee YX 01 PASSREW aeveccee 8 OO : 
PASSDATE ~ eeeeenee x OT PASSROUND_D_LU sa stmartde x 01 : 
PASSDELET eeeeeeee YX 01 St ST conaieil x 01 : 
PAS$DISPOSE2 kkeeeeee x Q1 PASSROUND TATED conden X 01 : 
PASSEOF 2 eeeeeeee x 01 eats oo e aeadaeunaion X 01 : 
PASSEOLN2 teeenere =X 01 pacscen'r teneeeee X01 : 
PASSEXPO_D eeeeeeee =X 860] PASSEORG eeeneeee = X (1 ° 
PASSEXPO_F seocacen = 86— GT “4 teeneeee XX 01 3 
PASSEXPOG eeektane x 01 PAS$SQR_ Saeed X 01 : 
PASSEXPO-H reeereee x 01 PAS$SQR_L eeereeee x 01 L 
PASSF - eeeeeere x Q1 St p aehete x 01 : 
PASSF IND2 teeeeees =X 01 ert Dhl teeeeeee X01 ; 
PASSF INDK eeeceese 8€§ 69 peat NCATE teeeeeee XX 01 
PAS$GET eeeeeeee x Q1 pacst nim > LY ceaaeneam x 01 
PAS$GET UNLOCK enone 5) Ss paeernuncme ty teeeeeee X01 
PAS$GOTO eecaceee =X 01 PASSTRUNC_F aeeeeeee XX (1 
PASSHALT eeeeeeee x Q1 PASSTRUNC_G_LU deans X 01 
PASSHANDLER eeeeeeee KX 01 PASSTRUNC_H_LU eth mete x 01 
PASSHEX esageses = ETT + ok teeters X01 
PASSLINELIMIT2 teeeeeet x Q1 PASSUNDEF I - petra X 1 
PASSLOCATE eeeeeeee X= 01 et reece pe] eeeseessn. § 64 
PAS$SLOOK AHEAD rkekeeee x 01 set eee Me nteiiieen x 01 
PASSMARK2 teeeeeee KX 01 PASSUNDEF INED_ econnese 8 
PASSNEW2 ektereet x 01 PASSUNLOCK ted x 01 
ASSOCT nesveehta BB ° PASSURI TELN2 teeeeers x OI 
eee 
So teeerene x 01 PASSWRITEV_BIN sesessre x 01 


PASSVECTOR 
Symbol table 


- Entry vectors for PASRTL.EXE =138¢ 1:20:5 
-1984 11:54:0 


H 10 


16=SEP 
6-SEP 


AX/VMS Ma 
PASRTL.SR 


cro V04-00 P 
RCIP PASVECTOR.MAR; 1 


pnseuni Tey POOL EAN eeeeenee =X 1 > 
PASSWRITEV “CHA eeeekene x 1 ’ 
et tors ITEV_ “ENUMERATED eeeneeee =X 1 : 
PASSWRITEV_HEX eeeeeeee =X 1 : 
PASSWRITEV_ ao eeneeeee =X 1 : 
PASSWRITEV_ _OCcT ethernet X 4 > 
PASSWRITEV_REALE_D eeneeeee = 8§=6X 1 : 
PASSWRITEV_REALE_F eeeeeeee =X 01 ‘ 
PASSWRITEV_REALE_G eeeeeeee =X 01 : 
PASSWRITEV_REALE_H eereeeee =X = 0] : 
PASSWRITEV_REALF_D tereenee =X 01 : 
PASSWRITEV_ ~REALE F eeeeeeee =X 0] ; 
PASSWRITEV_REAL LF.G eeereeee KX 01 ; 
PASSWRITEV_REALF _H eeeeeeee =X 01 : 
PASSWRITEV_STRING eeeeeeee =X 0) : 
PASSWRITEV_UNSIGNED tereeeee = KX 01 : 
PASSWRITEV_ VARYING ie lialialalalalialel X 01 ° 
PASSWRITE_BIN aeeeeeee = X 01 ; 
PASSWRITE | ~B00L EAN eeneeeee =X 860] ; 
PASSWRITE_CHA eereeeee =X (01 ; 
PAssuRi Te _ “ENUMERATED ee ee | | H 
PASSWRITE “HEX reateent x 01 : 
oe ITE_ INTEGER eeneeere =X =] : 
PASSWRITE_OCT eeeeeeee =X =] : 
PASSWRITE_REALE_D eeeeeeee =X 01 : 
PASSWRITE_REALE_F eeeeeeee =X 01 : 
ASSWRITE_REALE_G eeneeeee = XK 01 ; 
PASSWRITE_REALE_H eeneeeee =X = 0] H 
PASSWRITE_REALF_D teeneeee KX 01 ; 
PASSWRITE =REALF D1 eeneeeee =X 0] : 
PASSWRITE_REALF_ eeneeeee = =X 01 : 
PASSWRITE— “REALE “FA eeneeeee =X 01 ; 
PASSWRITE_REALF — eeeeeeee XX 01 : 
PASSWRITE— _REALF _H ereretee Xx 01 : 
PASSWRITE- _STRIN ekeeteee x 01 ’ 
PASS$WRITE_UNSIGNED eeeeeeee =X 01 ; 
PASS$WRITE-VARYING tereeeee X01 : 
Fooeocoeoeocoeescoceosce + 5 

' :_Psect synopsis ! : 

PSECT name Allocation PSECT No. Attributes : 
ABS 00000000 ( 0.) 00 ¢ QO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE : 
SPASSVECTOR 00000488 ( 1208.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG : 
fron moe ee Rema HEE + F: 

! ; Performance indicators ! : 

Phase Page faults CPU Time Elapsed Time ‘ 
Initialization 10 00 00: 00.08 00:00:01.32 g 
connend processing 1 Bo 88: 0. ; Ba BR: 47%) ; 
s 1 135 So a 0:00:09. ‘ : 
eB table sort 0 00:00:00.17 00:00:00.9 3 


I 
PASSVECTOR - Entry vectors for PASRTL.EXE 16- 


00 onag : 
Psect synopsis output 1 $6 86:4 
Cross-reference output 0 00 be: : 
Assembler run totals 380 00:00:05. : 
The working set Limit was 1050 pages. 
30159 bytes (59 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 151 non-local and 0 local symbols. 
418 source Lines were read in Pass 1, producing 35 object records in Pass 2. 
2 pages of virtual memory were used to define 2 macros. 


Pass 2 138 0: 
Symbol table output 1 if 
0: 


+ 
! Macro Library statistics ! 
+ 


err er ee Bee ee eee ee wee st we wet 


Macro Library name Macros defined 


“$S255SDUA2B:CSYSLIBISTARLET.MLBs2 tt StS~™S 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


VAX=11 Macro Run Statistics o-SE p= 1986 01:98:38 t 


MACRO/ENABLE=SUPPRESSION/LIS=L1S$:PASVECTOR/OBJ=OBJ$:PASVECTOR MSRC$:PASVECTOR/UPDATE=(ENH$:PASVECTOR) 


A 


vo 
S 
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